<%
Class advertAction_Public

	Private Sub Class_Initialize()
		On Error Resume Next
		'..
		On Error Goto 0
	End Sub

	Private Sub Class_Terminate()
		'
	End Sub

	'View: index.asp?m=public&c=advert&a=tgo&id=1
    Public Sub tgo()
		Dim id : id = App.ReqInt("id",0)
		url = M("ad")().Where("id="& id).getField("url")
		If Trim(url)="" Then url = "#"
		'url = AB.C.RegReplace(url,"^(\#+\s*)$","")
		R(url)
    End Sub

    Public Sub [empty]()
		App.Out.Print MODULE_NAME & ": Empty Action"
    End Sub

End Class
%>